home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 4 / The Arsenal Files 4 (Arsenal Computer).ISO / ham / sattrk31.tgz / sattrack-3.1.tar / SatTrack / run / getsts < prev    next >
Text File  |  1995-03-28  |  2KB  |  107 lines
  1. #! /bin/csh
  2. #
  3. # getsts      -----      Manfred Bester  27Mar95
  4. #
  5. # This C shell script can be invoked manually or by cron at a specified time.
  6. # It calls up 'spacelink.msfc.nasa.gov' (192.149.89.61) and gets the most 
  7. # recent files with Keplerian two-line element sets for the upcoming or current 
  8. # space shuttle mission, as used with SatTrack. 
  9. #
  10. # The mission number needs to be specified below in the variable 'stsnum'. 
  11. #
  12. # If the shuttle has not been launched yet, 'prelaunch' has to be set to '1', 
  13. # and otherwise to '0'.
  14. #
  15. # For Mir docking missions, the variable 'mir' has to be set to '1' and 
  16. # otherwise to '0'.
  17. #
  18. # The variable 'satuser' is normally the personal user ID.
  19. #
  20. # If SatTrack is not installed in the user's home directory, the variable 
  21. # 'satdir' needs to be changed to the name of the directory that SatTrack is 
  22. # installed under. The variable 'satuser' is the UID of the user who is allowed 
  23. # to write into the system-wide SatTrack directory, i.e. the person in charge 
  24. # of maintaining SatTrack (maybe 'root').
  25. #
  26. #
  27. #
  28. set stsnum=71
  29. set prelaunch=1
  30. set mir=1
  31. set ftphost=192.149.89.61
  32. set satdir=/home/manfred
  33. set satuser=manfred
  34. #
  35. #
  36. #
  37. set userid=$USER@`hostname`.`domainname`
  38. #
  39. if ($USER == $satuser) then
  40.     set satdirusr=$satdir
  41.     else
  42.     set satdirusr=$HOME
  43.     mkdir -p $HOME/SatTrack/tle
  44. endif
  45. #
  46. cd $satdirusr/SatTrack/tle
  47. #
  48. if ($1 == -v) then 
  49.     echo $userid
  50.     echo calling $ftphost ...
  51. endif
  52. #
  53. if ($prelaunch == 1) then 
  54.     set kepfile=STS-$stsnum.Pre-Launch.Keplerian.Elements
  55.     set mission=Upcoming
  56.     else
  57.     set kepfile=STS-$stsnum.Keplerian.Elements
  58.     set mission=Current
  59. endif
  60. #
  61. set kepfile=Keplerian.Elements
  62. #
  63. if ($mir == 1) then
  64.     set tledir=$mission.Mir.Docking.Mission.STS-$stsnum
  65.     else
  66.     set tledir=$mission.Shuttle.Mission.STS-$stsnum
  67. endif
  68. #
  69. ftp $1 -n $ftphost << !
  70. user anonymous -$userid
  71. cd Spacelink.Hot.Topics
  72. cd $tledir
  73. cd Keplerian.Elements.and.SAREX.Info
  74. get $kepfile
  75. quit
  76. !
  77. #
  78. if ($1 == -v) then 
  79.     echo saving data files ...
  80. endif
  81. #
  82. "mv" sts-$stsnum.dat sts-$stsnum.bak
  83. echo STS-$stsnum > sts-$stsnum.dat
  84. sed -n -e /\^1\ /p -e /\^2\ /p $kepfile >> sts-$stsnum.dat
  85. touch sts-$stsnum.dat.all
  86. cat sts-$stsnum.dat >> sts-$stsnum.dat.all
  87. "rm" $kepfile
  88. #
  89. if ($1 == -v) then 
  90.     echo ""
  91.     echo new TLE set:
  92.     echo ""
  93.     cat sts-$stsnum.dat
  94.     echo ""
  95. endif
  96. #
  97. if ($1 == -v) then
  98.     echo running 'maketlex' ...
  99. endif
  100. #
  101. maketlex
  102. #
  103. if ($1 == -v) then
  104.     echo done.
  105. endif
  106. #
  107.